#! /usr/bin/perl

use diagnostics;
use strict;
use PIDfolha;

print "[$$]\n";
PIDfolha::exec();